home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / net / AmiMUD.lha / AmiMUD / rexx / eatfood.amud < prev    next >
Text File  |  1997-03-08  |  510b  |  30 lines
  1. /* Medievia Script to get food 
  2.  * This script have to be resident, it may be launched with rx from
  3.  * a shell or from within AmiMUD.
  4.  */
  5.  
  6. address 'AmiMUD.1'
  7.  
  8. 'am_addtrigger "suddenly appear" " " REXXTRIGGER'
  9.  
  10. mytrig=TRIGGER
  11.  
  12. do forever
  13.     am_waittriggers REXXONLY
  14.  
  15.     if TRIGGER=mytrig then do
  16. /*
  17.  *        say 'Line:' LINEBUFFER
  18.  *        say 'There are' words(LINEBUFFER) 'words.'
  19.  */
  20.  
  21.         food=word(LINEBUFFER,words(LINEBUFFER)-2)
  22.  
  23. /*
  24.  *        say 'The 3rd last word is ' food
  25.  */
  26.  
  27.         am_send '"get' food ';eat' food '"'
  28.     end
  29. end
  30.